home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #041 (1990)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #041 (1990)(Amiga User Group Deutschland e.V.).adf / DTdbS / tdbs2 (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-02  |  19KB  |  437 lines
  1. SCREEN 2,640,200,4,2
  2. WINDOW 2,,,0,2
  3. RANDOMIZE TIMER
  4. DEFLNG a-z
  5. DECLARE FUNCTION opendiskfont&() LIBRARY
  6. LIBRARY "diskfont.library"
  7. LIBRARY "graphics.library"
  8. altfont=PEEKL(WINDOW(8)+52)
  9. neufont$="amber.font"+CHR$(0)
  10. hoehe=19:pref=96 
  11. text(0)=SADD(neufont$)
  12. text(1)=(2^16)*hoehe+pref
  13. font=opendiskfont&(VARPTR(text(0)))
  14. IF font<>0 THEN CALL setfont&(WINDOW(8),font)
  15. FOR i=1 TO 5
  16. REM MENU i,0,1,""
  17. NEXT
  18. MENU ON
  19. FOR i=0 TO 27
  20. PALETTE i,0,0,0
  21. NEXT
  22. OPEN "I",#1,"Held"
  23. WHILE NOT EOF(1)
  24. INPUT #1,spieler$,geld,punkte,mut,waffe$
  25. INPUT #1,kleidung$,geschick,parade,attacke 
  26. INPUT #1,charisma,intelligenz,kraft,lebensenergie,tp 
  27. WEND
  28. CLOSE #1
  29. tp=5
  30. start:
  31. CALL freesprite (0) 
  32. COLOR 2
  33. 1 CLS:LOCATE 3,3
  34. schr$="Du stehst in einem alten verfallenen Hof der alten Burg.":sp(schr$):LOCATE 5,3
  35. schr$="Es gibt drei Richtungen, in die Du gehen kannst.":sp(schr$):LOCATE 7,3
  36. schr$="Im Sueden kommst Du zum Eingang des Hauptgebauedes, in":sp(schr$):LOCATE 9,3
  37. schr$="Westen geht es in den Viehstall und nach Osten gelangst Du":sp(schr$):LOCATE 11,3
  38. schr$="zu den Unterkuenften der Soldaten.":sp(schr$):LOCATE 14,3:COLOR 3
  39. schr$="Willst Du nach Sueden < F1 >":sp(schr$):LOCATE 16,3
  40. schr$="Oder gehst Du lieber zum Viehstall < F2 >":sp(schr$):LOCATE 18,3
  41. schr$="Du kannst auch noch nach Osten < F3 >":sp(schr$):COLOR 2
  42. PALETTE 5,0.93,0.2,0
  43. PALETTE 6,0.4,0.6,1
  44. PALETTE 7,0.8,0.4,0.33
  45. PALETTE 2,1,0.87,0.73
  46. PALETTE 3,1,1,0.13
  47. WHILE 1
  48. getkey x
  49. IF x=1 THEN 4
  50. IF x=2 THEN 6
  51. IF x=3 THEN 2
  52. IF x=11 THEN GOSUB dokument:GOTO 1
  53. WEND
  54.  
  55. 2 CLS:LOCATE 3,3
  56. schr$="Du bertitts einen 5x7 Meter grossen Raum, mit zwei Aus-":sp(schr$):LOCATE 5,3
  57. schr$="gaengen; einen in der Suedwand, den anderen in der West-":sp(schr$):LOCATE 7,3
  58. schr$="wand. Der Raum ist spaerlich eingerichtet. Es stehen zwei":sp(schr$):LOCATE 9,3
  59. schr$="kaputte Schlafstellen und ein Tisch mit zwei Stuehlen in":sp(schr$):LOCATE 11,3
  60. schr$="der Wachstube.":sp(schr$):COLOR 3:LOCATE 14,3
  61. schr$="Du kannst den Ausgang nach Sueden gehen < F1 >":sp(schr$):LOCATE 16,3
  62. schr$="Es geht auch nach Westen < F2 >":sp(schr$):LOCATE 18,3
  63. schr$="Wenn Du willst kannst Du Dich auch Schlafen legen < F3 >":sp(schr$):COLOR 2
  64. WHILE 1
  65. getkey x
  66. IF x=1 THEN 3
  67. IF x=2 THEN 1
  68. IF x=3 THEN 15
  69. IF x=11 THEN GOSUB dokument:GOTO 2
  70. WEND
  71.  
  72. 3 CLS:LOCATE 3,3
  73. schr$="Du kommst in einen ca 3x4 Meter grossen Raum. Dieser Raum":sp(schr$):LOCATE 5,3
  74. schr$="hat nur einen Ausgang nach Norden. In der Ecke der Suedwand":sp(schr$):LOCATE 7,3
  75. schr$="steht ein alter, noch relativ gut erhaltener Schrank.":sp(schr$):LOCATE 9,3
  76. schr$="Der Raum besitzt weiter eine kleine Kochstelle in der Mitte,":sp(schr$):LOCATE 11,3
  77. schr$="die aber schon Jahre nicht mehr benutzt wurde, denn in dem ":sp(schr$):LOCATE 13,3
  78. schr$="Topf tummeln sich Kaefer und andere Insekten.":sp(schr$):COLOR 3:LOCATE 16,3
  79. schr$="Du kannst ja versuchen den Schrank zu oeffnen < F1 >":sp(schr$):LOCATE 18,3
  80. schr$="Eine andere Moeglichkeit ist den Raum zu verlassen < F2 >":sp(schr$):COLOR 2
  81. WHILE 1
  82. getkey x
  83. IF x=1 THEN 16
  84. IF x=2 THEN 2
  85. IF x=11 THEN GOSUB dokument:GOTO 3
  86. WEND
  87.  
  88. 4 CLS:LOCATE 3,3
  89. schr$="Du bist in der Empfangshalle - oder besser was davon uebrig":sp(schr$):LOCATE 5,3
  90. schr$="geblieben ist - und wunderst Dich wie so ein ehemals sicher":sp(schr$):LOCATE 7,3
  91. schr$="wunderschoener Saal so verkommen kann. Es gibt drei Tueren ":sp(schr$):LOCATE 9,3
  92. schr$="in diesem Raum; ein in der Nordwand, eine in der Westwand ":sp(schr$):LOCATE 11,3
  93. schr$="und die dritte in der Suedwand.":sp(schr$):LOCATE 14,3:COLOR 3
  94. schr$="Du kannst nach Norden gehen < F1 >":sp(schr$):LOCATE 16,3
  95. schr$="Willst Du dein Glueck an der Suedtuer versuchen? < F2 >":sp(schr$):LOCATE 18,3
  96. schr$="Als drittes geht es dann noch nach Westen < F3 >":sp(schr$):COLOR 2
  97. WHILE 1
  98. getkey x
  99. IF x=1 THEN 1 
  100. IF x=2 THEN 7
  101. IF x=3 THEN 5
  102. IF x=11 THEN GOSUB dokument:GOTO 4
  103. WEND
  104.  
  105.  5 CLS:LOCATE 3,3
  106. schr$="Du stehst hier in der Kueche. Ein etwa 7x5 Meter grosser Raum":sp(schr$):LOCATE 5,3
  107. schr$="mit einer grossen Kochstelle an der Westwand. In verschiedenen":sp(schr$):LOCATE 7,3
  108. schr$="Regalen sind Gewuerze und andere Utensilien zum Kochen und":sp(schr$):LOCATE 9,3
  109. schr$="Braten untergebracht. Ganz besonders faellt Dir ein Regal ins":sp(schr$):LOCATE 11,3
  110. schr$="Auge, wo verschiedene Fluessigkeiten in kleinen Ampullen unter-":sp(schr$):LOCATE 13,3
  111. schr$="gebracht sind. Dieser Raum hat uebrigens nur einen Ausgang in":sp(schr$):LOCATE 15,3
  112. schr$="der Ostwand.":sp(schr$):LOCATE 18,3:COLOR 3
  113. schr$="Ne das ist mir nicht geheuer, ich hau ab! < F1 >":sp(schr$):LOCATE 20,3
  114. schr$="Mal sehen was in den Ampullen drin ist? < F2 >":sp(schr$):COLOR 2
  115. WHILE 1
  116. getkey x
  117. IF x=1 THEN 4
  118. IF x=2 THEN 20
  119. IF x=11 THEN GOSUB dokument:GOTO 5
  120. WEND
  121.  
  122. 6 IF ga THEN GOTO 14
  123. CLS:LOCATE 3,3
  124. schr$="Du stehst in einem Viehstall. Einige Ratten laufen umher,":sp(schr$):LOCATE 5,3
  125. schr$="lassen sich anscheinend nicht von Dir stoeren. Die Boxen, wo":sp(schr$):LOCATE 7,3
  126. schr$="frueher einmal die Tiere gestanden haben, werden jetzt nur":sp(schr$):LOCATE 9,3
  127. schr$="von Spinnen und anderen Tieren bewohnt. Das Dach ist von ":sp(schr$):LOCATE 11,3
  128. schr$="dem Stall ist eingebrochen, so dass auch noch das letzte ":sp(schr$):LOCATE 13,3
  129. schr$="Stroh und Heu verfault ist.":sp(schr$):LOCATE 16,3:COLOR 3
  130. schr$="Du kannst den Raum wieder verlassen < F1 >":sp(schr$):LOCATE 18,3
  131. schr$="Vielleicht willst Du auch noch einmal alles durchsuchen < F2 >":sp(schr$):COLOR 2
  132. WHILE 1
  133. getkey x
  134. IF x=1 THEN 1
  135. IF x=2 THEN 12
  136. IF x=11 THEN GOSUB dokument:GOTO 6
  137. WEND
  138.  
  139. 7 CLS:LOCATE 3,3
  140. schr$="Du befindest Dich zur Zeit auf dem Flur der Burg. An den ":sp(schr$):LOCATE 5,3
  141. schr$="Waenden haengen noch alte Bilder, mit den Abbildungen derer":sp(schr$):LOCATE 7,3
  142. schr$="die hier wohl einmal gelebt haben. Von hier aus fuehren vier":sp(schr$):LOCATE 9,3
  143. schr$="Wege in verschiedene Richtungen. Es gibt eine Treppe, die im":sp(schr$):LOCATE 11,3
  144. schr$="Osten liegt und nach unten fuehrt, weiter gibt es eine Tuer in":sp(schr$):LOCATE 13,3
  145. schr$="der Sued- und eine in der West- und Nordwand.":sp(schr$):LOCATE 16,3:COLOR 3
  146. schr$="Du entscheidest Dich fuer die Tuer in der Suedwand < F1 >":sp(schr$):LOCATE 18,3
  147. schr$="Du folgst lieber den Treppen in ein anderes Stockwerk < F2 >":sp(schr$):LOCATE 20,3
  148. schr$="Oder Du haelst Dich an den Weg nach Westen < F3 >":sp(schr$):LOCATE 22,3
  149. schr$="Gehst Du noch nach Norden? < F4 >":sp(schr$):COLOR 2
  150. WHILE 1
  151. getkey x
  152. IF x=1 THEN 9
  153. IF x=2 THEN 8
  154. IF x=3 THEN 10
  155. IF x=4 THEN 4
  156. IF x=11 THEN GOSUB dokument:GOTO 7
  157. WEND
  158.  
  159. 8 IF jk=1 THEN 24
  160. CLS:LOCATE 3,3
  161. schr$="Hier unten ist es doch sehr kuehl, so zwischen den grossen,":sp(schr$):LOCATE 5,3
  162. schr$="alten Eichenfaessern, wo der Wein drin gelagert wird. Die ":sp(schr$):LOCATE 7,3
  163. schr$="Luft hier unten ist sehr schlecht, und je weiter Du in den":sp(schr$):LOCATE 9,3
  164. schr$="Weinkeller vordringst, umso schlechter wird die Luft. Der ":sp(schr$):LOCATE 11,3
  165. schr$="Weinkeller hat die Form eines uralten Gewoelbes, wo kaum noch":sp(schr$):LOCATE 13,3
  166. schr$="Licht hinfaellt. Ueberall haengen Spinnenweben von der Decke,":sp(schr$):LOCATE 15,3
  167. schr$="und zwischen den Faessern.":sp(schr$):LOCATE 18,3:COLOR 3
  168. schr$="Du kannst den Wein probieren < F1 >":sp(schr$):LOCATE 20,3
  169. schr$="Du kannst den Raum auch wieder verlassen < F2 >":sp(schr$):COLOR 2
  170. WHILE 1
  171. getkey x
  172. IF x=1 THEN 21
  173. IF x=2 THEN 7
  174. IF x=11 THEN GOSUB dokument:GOTO 8 
  175. WEND
  176.  
  177. 9 CLS:LOCATE 3,3
  178. schr$="Du stehst in einem langen Gang, es ist feucht hier und Du":sp(schr$):LOCATE 5,3
  179. schr$="siehst nicht sehr viel, nur schwach erkennst Du eine Tuer":sp(schr$):LOCATE 7,3
  180. schr$="in der Suewand, und natuerlich die in der Nordwand, durch":sp(schr$):LOCATE 9,3
  181. schr$="die Du gekommen bist. Der Gang scheint sonst leer zu seien.":sp(schr$):LOCATE 13,3:COLOR 3
  182. schr$="Du kannst nach Sueden < F1 >":sp(schr$):LOCATE 15,3
  183. schr$="Du gehst lieber wieder aus dem Raum raus < F2 >":sp(schr$):LOCATE 17,3
  184. schr$="Du durchsuchst nochmal alles! < F3 >":sp(schr$):COLOR 2
  185. WHILE 1
  186. getkey x
  187. IF x=1 THEN 11
  188. IF x=2 THEN 7
  189. IF x=3 THEN 27
  190. IF x=11 THEN GOSUB dokument:GOTO 9 
  191. WEND
  192.  
  193. 10 IF kl=1 THEN 26
  194. CLS:LOCATE 3,3
  195. schr$="Du folgst einer langen Wendeltreppe aus Stein nach oben.":sp(schr$):LOCATE 5,3
  196. schr$="Immer hoeher hinauf geht es und die Stufen scheinen nicht":sp(schr$):LOCATE 7,3
  197. schr$="mehr aufhoeren zu wollen, bis Du endlich das ender der Stufen":sp(schr$):LOCATE 9,3
  198. schr$="erreicht hast und von einem Turm herumterschaust. Du kannst":sp(schr$):LOCATE 11,3
  199. schr$="ueber den ganzen Dschungel hinweg blicken und freust Dich ueber":sp(schr$):LOCATE 13,3
  200. schr$="die Schoenheit der Waelder und Wiesen um die Burg herum,":sp(schr$):LOCATE 15,3
  201. schr$="als ein grosser schwarzer Vogel auf dich zukommt, es handelt":sp(schr$):LOCATE 17,3
  202. schr$="sich hierbei um einen Turmmoran, er greift Dich mit seinen ":sp(schr$):LOCATE 19,3
  203. schr$="Krallen an. Schnell hast Du deine Waffe bei der Hand":sp(schr$)
  204. monstername$="Turmmoran":monsterattacke=12:monsterparade=8:Monsterpunkte=15
  205. monsterlebensenergie=18:monstertrefferpunkte=3:i=3
  206. SLEEP:SLEEP:SLEEP:GOTO kampf
  207.  
  208. 11 CLS:LOCATE 3,1
  209. schr$="Du kommst in einen Raum, den jede gute alte Burg einfach ":sp(schr$):LOCATE 5,1
  210. schr$="haben muss, richtig den Folterkeller. Der Raum hat nur einen":sp(schr$):LOCATE 7,1
  211. schr$="Ausgang nach Norden. In der Mitte des Raumes steht eine gute":sp(schr$):LOCATE 9,1
  212. schr$="Streckbank, an den Waenden haengen noch Ketten. Der Ganze ":sp(schr$):LOCATE 11,1
  213. schr$="Raum macht einen Eindruck, als ob er oft benutzt wurde, den":sp(schr$):LOCATE 13,1
  214. schr$="Spinnenweben usw. gibt es hier nicht. Nachdem Du dich ueber":sp(schr$):LOCATE 15,1
  215. schr$="den guten Zustand des Raumes gewundert hast, verlaesst Du  ":sp(schr$):LOCATE 17,1
  216. schr$="ihn auch wieder.":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 9
  217.  
  218. 12 CLS:LOCATE 3,3:i=1:ga=1
  219. schr$="Du hast ausser alten Brettern und verfaulten Stroh noch zwei":sp(schr$):LOCATE 5,3
  220. schr$="Silberstuecke gefunden. Ploetzlich als Du in dem Stroh noch":sp(schr$):LOCATE 7,3
  221. schr$="weiter herumsuchst greift Dich eine aufgeschreckte Ratte an.":sp(schr$):LOCATE 9,3
  222. schr$="Es kommt unvermeidlich zum Kampf.":sp(schr$)
  223. geld=geld+2:monstername$="Ratte":monsterattacke=5:monsterparade=7:monsterlebensenergie=9
  224. monstertrefferpunkte=2:Monsterpunkte=4
  225. SLEEP:SLEEP:SLEEP:GOSUB kampf:GOTO 13
  226.  
  227. 13 CLS:LOCATE 3,3 
  228. schr$="Den Kampf gut ueberstanden, gehst Du wieder auf den Hof und":sp(schr$):LOCATE 5,3
  229. schr$="freust Dich, dass dich nicht gleich ein dutzend Ratten ange-":sp(schr$):LOCATE 7,3
  230. schr$="griffen haben.":sp(schr$):SLEEP:SLEEP:GOTO 1
  231.  
  232. 14 CLS:LOCATE 3,3
  233. schr$="Was willst Du denn nochmal in dem alten Viehstall? Mehr Silber-":sp(schr$):LOCATE 5,3
  234. schr$="stuecke findest Du auch nach noch so langem Suchen nicht!":sp(schr$):LOCATE 7,3
  235. schr$="Es gibt wirlich nichts mehr hier zu holen, so'n scheiss wa?":sp(schr$)
  236. SLEEP
  237. SLEEP:SLEEP
  238. GOTO 1
  239.  
  240. 15 CLS:LOCATE 3,3
  241. schr$="Als Du nach einiger Zeit aufwachst spuerst Du igrendwie das":sp(schr$):LOCATE 5,3
  242. schr$="Du leichter geworden bist. Ja jetzt siehst Du es. Du wurdest":sp(schr$):LOCATE 7,3
  243. schr$="bestohlen, als Du den Schlaf der Gerechten schliefst. Nein, so":sp(schr$):LOCATE 9,3
  244. schr$="eine Schweinerei. Dein ganzes Geld - weg! Haettest Du Dich nur":sp(schr$):LOCATE 11,3
  245. schr$="nicht schlafen gelegt. Na warte, wenn Du den erwischt, der Dir Dein":sp(schr$):LOCATE 13,3
  246. schr$="Hab und Gut gestohlen hat!!":sp(schr$):geld=0
  247. SLEEP:SLEEP:SLEEP:GOTO 2
  248.  
  249. 16 IF fa=1 THEN 17
  250. CLS:LOCATE 3,1
  251. schr$="Nach einigen Versuchen schaffst Du es auch Tatsaechlich ":sp(schr$):LOCATE 5,1
  252. schr$="die alte Schranktuer zu oeffnen, und Du findest ein guterhal-":sp(schr$):LOCATE 7,1
  253. schr$="tendes Schwert. Es ist lang und Scharf, hat einen schoenen ":sp(schr$):LOCATE 9,1
  254. schr$="Griff mit dem Zeichen eines Wolfes. Was passiert nun? Du hast":sp(schr$):LOCATE 11,1
  255. schr$="das Schwert gerade genommen, als sich hinter Dir etwas bewegt -":sp(schr$):LOCATE 13,1
  256. schr$="Du faehrst herum und bleibst wie angewurzelt stehen. Ein Demon":sp(schr$):LOCATE 15,1
  257. schr$="greift dich an:":sp(schr$)
  258. monstername$="Demon":monsterlebensenergie=30:monstertrefferpunkte=4:monsterattacke=12:monsterparade=7
  259. Monsterpunkte=20:punkte=punkte+1:waffe$="Schwert":tp=7:fa=1:i=2
  260. SLEEP:SLEEP:SLEEP:GOTO kampf
  261.  
  262. 17 CLS:LOCATE 3,3
  263. schr$="Da der Schrank ja schon offen ist, brauchst Du Dich gar ":sp(schr$):LOCATE 5,3
  264. schr$="nicht mehr anzustrengen! Doch was ist das? - Der Schrank ist":sp(schr$):LOCATE 7,3
  265. schr$="ist ja leer, und es kommt auch kein Demon mehr, da Du ihn ja":sp(schr$):LOCATE 9,3
  266. schr$="davor gerade in die ewigen Jagdgruende geschickt hast!":sp(schr$):SLEEP:SLEEP:GOTO 3
  267.  
  268. 18 CLS:LOCATE 3,3
  269. schr$="Es ist wirklich nicht einfach einen Demon zu besigen !!":sp(schr$):LOCATE 5,3
  270. schr$="Herzlichen Glueckwunsch !":sp(schr$):kraft=kraft+2:lebensenergie=lebensenergie+5
  271. SLEEP:SLEEP:GOTO 3
  272.  
  273. 19 CLS:LOCATE 3,3
  274. schr$="Du hast ja schon alle Ampullen ausgesoffen!":sp(schr$):LOCATE 5,3
  275. schr$="Irgendwann ist auch mal alles empty! ":sp(schr$):LOCATE 8,3
  276. schr$="Alte Schnapsnase !":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 5
  277.  
  278. 20 IF da=1 THEN 19 
  279. CLS:LOCATE 3,3
  280. schr$="Als Du die Ampullen der Reihe nach durchprobierst merkst":sp(schr$):LOCATE 5,3
  281. schr$="Du wie dich neue Lebensenergie durchfliesst, ausserdem haelst":sp(schr$):LOCATE 7,3
  282. schr$="Du Dich jetzt fuer viel intelligenter als frueher!":sp(schr$)
  283. lebensenergie=lebensenergie+3:intelligenz=intelligenz+1:da=1
  284. SLEEP:SLEEP:SLEEP:GOTO 5
  285.  
  286. 21 CLS:LOCATE 3,3
  287. schr$="Gesagt getan, Du probierst also den Wein und bist erstaunt,":sp(schr$):LOCATE 5,3
  288. schr$="dass der Wein noch gut ist. Doch jetzt erst merkst Du wie gut":sp(schr$):LOCATE 7,3
  289. schr$="dieser Wein schmeckt. Dieser wuerzig, liebliche Geschmack!":sp(schr$):LOCATE 9,3
  290. schr$="Du kannst nicht mehr aufhoeren diesen Wein zu trinken, er":sp(schr$):LOCATE 11,3
  291. schr$="faesselt Dich! Langsam kommt auch die Wirkung des Weines ":sp(schr$):LOCATE 13,3
  292. schr$="durch und Du beginnst zu taumeln!":sp(schr$):LOCATE 15,3
  293. schr$="Du taumelst und stoesst gegen sie Faesser und Abstuetzungen,":sp(schr$):LOCATE 17,3
  294. schr$="die das gesamte Gewoelbe tragen. Es droht alles einzustuerzen.":sp(schr$):LOCATE 19,3
  295. schr$="schnell versuchst Du die rettende Treppe zu erreichen, um ":sp(schr$):LOCATE 21,3
  296. schr$="nicht von den einstuerzenden Balken erschlagen zu werden!":sp(schr$)
  297. SLEEP:SLEEP:SLEEP:GOTO 22
  298.  
  299. 22 x=INT(RND*(20+1))+5
  300. IF x<=geschick THEN 23
  301. CLS:LOCATE 3,3
  302. schr$="Durch deinen berauschten Zustand wusstes Du schon gar nicht":sp(schr$):LOCATE 5,3
  303. schr$="mehr richtig was Du tust. Ein herabstuerzender Balken hat":sp(schr$):LOCATE 7,3
  304. schr$="Dich mit zu Boden gerissen. Als Du wieder aus deiner Ohnmacht":sp(schr$):LOCATE 9,3
  305. schr$="aufgewacht bist, hast Du gerade noch mitbekommen, wie so ein":sp(schr$):LOCATE 11,3
  306. schr$="altes Eichenfass genau auf Dich zugerollt kommt...":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO schluss
  307.  
  308. 23 CLS:LOCATE 3,3
  309. schr$="Puhh! Nochmal Schwein gehabt! gerade als Du die rettenden ":sp(schr$):LOCATE 5,3
  310. schr$="Stufen erreichst, zerberstet hinter Dir ein grossen alten ":sp(schr$):LOCATE 7,3
  311. schr$="Weinfass, Du gute Wein! - Na ja hinuntergehen und noch was":sp(schr$):LOCATE 9,3
  312. schr$="Trinken willst Du auf jedenfall nicht.":sp(schr$):SLEEP:SLEEP:SLEEP:jk=1:GOTO 7
  313.  
  314. 24 CLS:LOCATE 3,3
  315. schr$="Hast Du schon wieder vergessen, dass das ganze Gewoelbe ein-":sp(schr$):LOCATE 5,3
  316. schr$="gestuerzt ist ?! Da geht es auf jedenfall nicht mehr lang !!":sp(schr$):SLEEP:SLEEP:GOTO 7
  317.  
  318. 25 CLS:LOCATE 3,3
  319. schr$="Du stehst immer noch auch dem Turm und neben Dir liegt jetzt":sp(schr$):LOCATE 5,3
  320. schr$="der tote Turmmoran. Erst jetzt erkennst Du wie gross dieses":sp(schr$):LOCATE 7,3
  321. schr$="Tier in wirklichkeit ist. Froh den Kampf ueberlebt zu haben ":sp(schr$):LOCATE 9,3
  322. schr$="machst Du Dich wieder auf den Weg die vielen Treppenstufen":sp(schr$):LOCATE 11,3
  323. schr$="wieder hinab zu steigen!":sp(schr$):SLEEP:SLEEP:SLEEP:kl=1:GOTO 7
  324.  
  325. 26 CLS:LOCATE 3,3
  326. schr$="Du stehst oben auf dem Turm, ein toter Turmmoran liegt noch":sp(schr$):LOCATE 5,3
  327. schr$="hier, er scheint erst vor kurzem umgebracht zu worden sein.":sp(schr$):LOCATE 7,3
  328. schr$="Erfreut ueber die schoene Landschaft steigst Du die Treppen":sp(schr$):LOCATE 9,3
  329. schr$="wieder hinab.":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 7
  330.  
  331. 27 CLS:LOCATE 3,1:COLOR 7
  332. schr$="Als Du den Raum durchsuchst, stoesset Du an einen Hebel, diesen":sp(schr$):LOCATE 5,1
  333. schr$="gezogen klappt aufeinmal der Boden unter Dir Weg und Du faellst.":sp(schr$):LOCATE 7,1
  334. schr$="in einen langen Gang, Du folgst dem Gang eine Zeit lang, bis Du":sp(schr$):LOCATE 9,1
  335. schr$="dann endlich ...":sp(schr$):SLEEP:SLEEP:SLEEP
  336. OPEN "Held" FOR OUTPUT AS #1
  337. WRITE #1,spieler$,geld,punkte,mut,waffe$
  338. WRITE #1,kleidung$,geschick,parade,attacke 
  339. WRITE #1,charisma,intelligenz,kraft,lebensenergie,tp 
  340. CLOSE #1
  341. LOAD"TDBS3",r
  342.  
  343. 260 COLOR 2
  344. IF i=1 THEN GOTO 13
  345. IF i=2 THEN GOTO 18
  346. IF i=3 THEN GOTO 25
  347. REM ********************
  348. REM ** unterprogramme **
  349. REM ********************
  350.  
  351. SUB sp(schr$) STATIC
  352. CALL text(WINDOW(8),SADD(schr$),LEN(schr$))
  353. END SUB
  354.  
  355. SUB getkey (keynumber) STATIC
  356. in$=""
  357. WHILE in$=""
  358. SLEEP
  359. in$=INKEY$
  360. WEND
  361. keynumber=ASC(in$)-128
  362. IF keynumber<1 OR keynumer>10 THEN keynumber=0
  363. END SUB
  364.  
  365.  
  366. dokument:
  367. CLS:LOCATE 3,3 
  368. PRINT "Name: ";spieler$
  369. LOCATE 5,3:COLOR 6
  370. PRINT "Mut:":COLOR 7:LOCATE 5,25:PRINT mut:COLOR 6:LOCATE 7,3
  371. PRINT "Geschick:":COLOR 7:LOCATE 7,25:PRINT geschick:COLOR 6:LOCATE 9,3
  372. PRINT "Klugheit:":COLOR 7:LOCATE 9,25:PRINT intelligenz:COLOR 6:LOCATE 11,3
  373. PRINT "Kraft:":COLOR 7:LOCATE 11,25:PRINT kraft:COLOR 6:LOCATE 13,3
  374. PRINT "Charisma:":COLOR 7:LOCATE 13,25:PRINT charisma:COLOR 6:LOCATE 15,3
  375. PRINT "Attacke:":COLOR 7:LOCATE 15,25:PRINT attacke:COLOR 6:LOCATE 17,3
  376. PRINT "Parade:":COLOR 7:LOCATE 17,25:PRINT parade 
  377. LOCATE 19,3:COLOR 5
  378. PRINT "Lebensenergie:";TAB(25);lebensenergie
  379. COLOR 6:LOCATE 5,31:PRINT "Waffe:":COLOR 7:LOCATE 5,45:PRINT waffe$
  380. COLOR 6:LOCATE 7,31:PRINT "Ruestung:":COLOR 7:LOCATE 7,45:PRINT  kleidung$
  381. COLOR 6:LOCATE 9,31:PRINT "Vermoegen:":COLOR 7:LOCATE 9,44:PRINT geld
  382. COLOR 6:LOCATE 11,31:PRINT "Punkte:":COLOR 3:LOCATE 11,44:PRINT punkte
  383. COLOR 2
  384. SLEEP:SLEEP
  385. WHILE a$=""
  386. a$=INKEY$
  387. WEND
  388. RETURN
  389.  
  390. schluss:
  391. CLS:LOCATE 3,3:COLOR 7
  392. PRINT "Hey ";spieler$;", Du solltest auch mal die positive Seite"
  393. PRINT "  dieser Entwickling betrachten: Du hast es hinter Dir,"
  394. PRINT "  niemand kann Dich mehr quaelen und demuetigen..."
  395. PRINT:PRINT"  Du hast trotzdem schon";punkte;" Punkte gemacht. Bravo"
  396. COLOR 3:PRINT:PRINT"Noch ein Spiel?"
  397. PRINT "       < F1 > Na klar, ich bin doch kein looser"
  398. PRINT "       < F2 > So ein scheiss Spiel, schnell weg"
  399. WHILE 1
  400. getkey x
  401. IF x=1 THEN LOAD"TDBS",r
  402. IF x=2 THEN SYSTEM
  403. WEND
  404.  
  405. an:  
  406.  COLOR 6 
  407.  IF lebensenergie<=0 THEN schluss
  408.  IF monsterlebensenergie<=0 THEN punkte=punkte+Monsterpunkte:GOTO 260 
  409.  LOCATE 6,3:PRINT"Lebensenergie: ";lebensenergie
  410.  COLOR 5
  411.  LOCATE 6,35:PRINT "Monsterenergie: ";monsterlebensenergie
  412. RETURN
  413.  
  414. kampf:
  415. CLS:LOCATE 3,3:COLOR 7
  416. PRINT "Name: ";UCASE$(spieler$):LOCATE 3,35:PRINT "Monster: ";monstername$
  417. WHILE 1
  418. duatt:
  419. x=INT(RND*(20+1))
  420. IF x<attacke THEN GOTO monstpa
  421. IF x>attacke THEN GOTO monstatt
  422. dupa:
  423. y=INT(RND*(20+1))
  424. IF y<parade THEN GOSUB an:GOTO duatt
  425. IF y>parade THEN lebensenergie=lebensenergie-monstertrefferpunkte:GOSUB an:GOTO duatt
  426. monstatt:
  427. x=INT(RND*(20+1))
  428. IF x<monsterattacke THEN GOSUB an:GOTO dupa
  429. IF x>monsterattacke THEN GOSUB an:GOTO duatt
  430. monstpa:
  431. y=INT(RND*(20+1))
  432. IF y<monsterparade THEN GOSUB an:GOTO monstatt
  433. IF y>monsterparade THEN monsterlebensenergie=monsterlebensenergie-tp:GOSUB an:GOTO monstatt
  434. WEND
  435.  
  436.  
  437.